Atari Mega Archive 2/Atari Mega Archive CD - Volume 2.iso/8bit/cislib_b/sftbll.xmo

Text File | 1995-04-22 | 16KB | 1 lines

10 ? "}":SET 2,ASC(">")¢20 GRAPHICS 17:FOR I=1 TO 4:? #6:NEXT I¢30 ? #6;"*¬*¬*¬*¬*¬*¬*¬*¬*¬*¬"¢40 ? #6;"¬                  *"¢50 ? #6;"*  SOFTBALL STATS  ¬"¢60 ? #6;"¬                  *"¢70 ? #6;"*   by karl wise   ¬"¢80 ? #6;"¬                  *"¢90 ? #6;"*¬*¬*¬*¬*¬*¬*¬*¬*¬*¬"¢100 FOR I=1 TO 1900:NEXT I¢110 DIM FILE$(14),FILELIST$(280),D1$(14),A$(1),NAME$(16),OPP$(14),SP$(80),F$(80),G$(3),OPP1$(14),R$(25),F1$(80)¢120 DIM F2$(80),SL$(10),SL1$(10),SL2$(10),U$(15):SL1$=" #.###":SL2$="  .###":U$(1)=CHR$(28):U$(15)=U$:U$(2)=U$¢130 DIM TYP$(5),BG$(1),BGBA(30),BGOB(30),BGSL(30)¢140 DIM RBI$(150),BGRBI(20):RBI$(1)=" ":RBI$(150)=RBI$:RBI$(2)=RBI$¢150 DIM FILESORT$(280),AVSRT(20):FILESORT$(1)=" ":FILESORT$(280)=FILESORT$:FILESORT$(2)=FILESORT$¢160 DIM TA$(10),TA1$(10),TA2$(10):TA1$="   #.###":TA2$="    .###"¢170 DIM TOABSRT(20)¢180 SP$(1)=" ":SP$(80)=SP$:SP$(2)=SP$:R$(1)=CHR$(31):R$(25)=R$:R$(2)=R$¢190 R$(1,1)=U$(1,1)¢200 DIM TEAMNAME$(30)¢210 TRAP 220:OPEN #7,8,0,"P:":CLOSE #7:GOTO 230¢220 ? "TURN ON PRINTER AND PRESS <RETURN> ":INPUT TEAMNAME$:? "}":GOTO 210¢230 TRAP 230:? "דPSON OR õ020";:INPUT TYP$:IF TYP$="" THEN TYP$="E"¢240 IF TYP$(1,1)="1" THEN TYP$="1":GOTO 260¢250 TYP$="E"¢260 TRAP 330:OPEN #2,4,0,"D:TEAMNAME.LST":INPUT #2;TEAMNAME$:CLOSE #2¢270 TRAP 320:? "}  צנהקאIJככáצקIJקחצקחבצáספנופIJל":? "  ";TEAMNAME$:? :? ¢280 ? "õ INPUT DATA":? "Ø PRINT ALL STATISTICS":? "ø PRINT TEAM TOTALS":? "œ PRINT INDIVIDUAL STATISTICS"¢290 ? "Œ QUIT":INPUT A:? "}":CHOICE=A¢300 TRAP 0:ON A GOSUB 350,1010,1060,2220,320¢310 ? "}":GOTO 270¢320 END ¢330 ? "ENTER THE TEAM NAME (30 CHAR MIJX)":INPUT TEAMNAME$¢340 CLOSE #2:OPEN #2,8,0,"D:TEAMNAME.LST":? #2;TEAMNAME$:CLOSE #2:? "}":GOTO 260¢350 OPEN #2,6,0,"D:*.*":X=0¢360 INPUT #2;FILE$¢370 IF FILE$(5,8)="FREE" THEN 410¢380 IF FILE$(11,13)<>"   " THEN 360¢390 X=X+1:FILELIST$((X*12)-11,(X*12))=FILE$(3,14)¢400 ? X;".";FILE$:GOTO 360¢410 CLOSE #2:? X+1;".  ADD NEW NAME":X=X+1¢420 ? X+1;".  MAIN MENU":X=X+1¢430 TRAP 430:? "ENTER CHOICE NUMBER";:INPUT A:TRAP 0¢440 IF A>X THEN 430¢450 IF A=X THEN ? "}":GOTO 270¢460 IF A=X-1 THEN 510¢470 FILE$=FILELIST$((A*12)-11,(A*12))¢480 D1$="D:"¢490 D1$(3)=FILE$:FILE$=D1$¢500 GOTO 620¢510 ? "ENTER NAME OF NEW DATA FILE":? "'D:' WILL BE ADDED BY COMPUTER":INPUT FILE$¢520 D1$="D:"¢530 D1$(3)=FILE$:FILE$=D1$¢540 ? :? FILE$;" WILL BE THE NEW":? "DATA FILE. IS THAT OK (Y/N)":INPUT A$¢550 IF A$="Y" OR LEN(A$)=0 THEN GOTO 580¢560 IF A$<"N" OR A$>"N" THEN 540¢570 GOTO 510¢580 OPEN #2,8,0,FILE$¢590 ? "INPUT PLAYER'S NIJME (16 CHAR MAX)":INPUT NAME$¢600 ? #2;NAME$¢610 GOTO 640¢620 OPEN #2,9,0,FILE$¢630 ? "}DATA FILE IS ";FILE$(3):? ¢640 ? "OPPONENT (14 CזAR MAX)":INPUT OPP$:IF OPP$="" THEN OPP$=OPP1$¢650 OPP1$=OPP$:IF OPP$="" THEN ? U$(1,2);:GOTO 640¢660 ? R$(1,2);OPP$¢670 TRAP 880:? "AT BATS";:INPUT ABAT¢680 TRAP 890:? "SINGLES";:INPUT SINS¢690 TRAP 900:? "DOUBLES";:INPUT DOUBS¢700 TRAP 910:? "TRIPLES";:INPUT TRIPS¢710 TRAP 920:? "HOMERS";:INPUT HRS¢720 TRAP 930:? "WALKS";:INPUT BBS¢730 TRAP 940:? "ERRORS";:INPUT ERRS¢740 TRAP 950:? "RUNS";:INPUT RUNS¢750 TRAP 960:? "RBI'S";:INPUT RBI¢760 ? "IS THE DATA OK (Y/N)";:INPUT A$:IF A$="N" THEN ? R$(1,22);SP$(1,1):? U$(1,12);:GOTO 640¢770 ? #2;OPP$¢780 ? #2;ABAT¢790 ? #2;SINS¢800 ? #2;DOUBS¢810 ? #2;TRIPS¢820 ? #2;HRS¢830 ? #2;BBS¢840 ? #2;ERRS¢850 ? #2;RUNS¢860 ? #2;RBI¢870 GOTO 970¢880 ABAT=0:? R$(1,9);0:GOTO 680¢890 SINS=0:? R$(1,9);0:GOTO 690¢900 DOUBS=0:? R$(1,9);0:GOTO 700¢910 TRIPS=0:? R$(1,9);0:GOTO 710¢920 HRS=0:? R$(1,8);0:GOTO 720¢930 BBS=0:? R$(1,7);0:GOTO 730¢940 LET ERRS=0:? R$(1,8);0:GOTO 740¢950 LET RUNS=0:? R$(1,6);0:GOTO 750¢960 RBI=0:? R$(1,7);0:GOTO 760¢970 CLOSE #2¢980 ? "CONTINUE DATA INPUT (Y/N)";:INPUT A$¢990 IF A$<>"N" THEN ? "}":GOTO 350¢1000 RETURN ¢1010 REM PRINT ALL STATS¢1020 F1$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ### #.###   #.###"¢1030 F2$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ###  .###   #.###"¢1040 OPEN #7,8,0,"P:"¢1050 IF TYP$="1" THEN ? #7;CHR$(27);CHR$(19);¢1060 TRAP 1060:? "DO YOU WANT B/GRAPH":? "DATA FILES CREATED (Y/N)";:INPUT BG$:TRAP 0¢1070 IF BG$="Y" THEN GOTO 1090¢1080 BG$="N"¢1090 OPEN #2,6,0,"D:*.*":X=0¢1100 DARK=PEEK(559):POKE 559,0¢1110 INPUT #2;FILE$¢1120 IF FILE$(5,8)="FREE" THEN 1150¢1130 IF FILE$(11,13)<>"   " THEN 1110¢1140 X=X+1:FILELIST$((X*12)-11,(X*12))=FILE$(3,14):GOTO 1110¢1150 XSRT=X:CLOSE #2:GOSUB 3010¢1160 IF CHOICE=3 THEN 1630¢1170 FOR I=1 TO X¢1180 D1$="D:"¢1190 G=0¢1200 FILE$=FILELIST$((I*12)-11,(I*12)):D1$(3)=FILE$:FILE$=D1$¢1210 TRAP 1430¢1220 OPEN #2,4,0,FILE$¢1230 INPUT #2;NAME$:? #7:? #7:? #7;CHR$(14);SP$(1,(18-INT(LEN(NAME$)/2)));NAME$:? #7:? #7¢1240 ? #7;"OPPONENT       A/B  H  1  2  3 HR BB  E  R RBI   AVG    O-B%    S%   C AVG"¢1250 ? #7;"-------------- --- -- -- -- -- -- -- -- -- --- -----   ----- -----   -----"¢1260 INPUT #2;OPP$:INPUT #2;ABAT:INPUT #2;SINS:INPUT #2;DOUBS:INPUT #2;TRIPS:INPUT #2;HRS:INPUT #2;BBS¢1270 INPUT #2;ERRS:INPUT #2;RUNS:INPUT #2;RBI¢1280 F$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ###  .###    .###"¢1290 HITS=SINS+DOUBS+TRIPS+HRS¢1300 IF ABAT=0:AVG=0:ELSE :AVG=HITS/ABAT:ENDIF :OB1=ABAT+BBS:IF OB1=0:OB=0:ELSE :OB=(HITS+BBS)/(OB1):ENDIF ¢1310 IF AVG=1 THEN F$=F1$:GOTO 1330¢1320 IF OB=1 THEN F$=F2$¢1330 G=G+1¢1340 IF ABAT=0:SLUG=0:ELSE :SLUG=(SINS+(2*DOUBS)+(3*TRIPS)+(4*HRS))/ABAT:ENDIF ¢1350 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ¢1360 TOABAT=TOABAT+ABAT:THITS=THITS+HITS:TSINS=TSINS+SINS:TDOUBS=TDOUBS+DOUBS:TTRIPS=TTRIPS+TRIPS¢1370 THRS=THRS+HRS:TBBS=TBBS+BBS:TERRS=TERRS+ERRS:TRUNS=TRUNS+RUNS:TRBI=TRBI+RBI¢1380 IF TOABAT=0:TAVG=0:ELSE :TAVG=THITS/TOABAT:ENDIF ¢1390 IF TAVG>=1:TA$=TA1$:ELSE :TA$=TA2$:ENDIF ¢1400 PRINT #7; USING F$,OPP$,ABAT,HITS,SINS,DOUBS,TRIPS,HRS,BBS,ERRS,RUNS,RBI,AVG,OB;:? #7; USING SL$,SLUG;¢1410 ? #7; USING TA$,TAVG¢1420 GOTO 1260¢1430 CLOSE #2¢1440 TRAP 0¢1450 G$=STR$(G):OPP$="TOTAL (   GMS)"¢1460 IF LEN(G$)=1 THEN OPP$(9,9)=G$:GOTO 1480¢1470 OPP$(8,9)=G$¢1480 ? #7;"============== === == == == == == == == == === =====   ===== =====   ====="¢1490 F$="!!!!!!!!!!!!!! ### ## ## ## ## ## ## ## ## ###  .###    .###"¢1500 IF TOABAT=0:SLUG=0:ELSE :SLUG=(TSINS+(2*TDOUBS)+(3*TTRIPS)+(4*THRS))/TOABAT:ENDIF ¢1510 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$:ENDIF ¢1520 IF TOABAT=0:AVG=0:ELSE :AVG=THITS/TOABAT:ENDIF ¢1530 IF TOABAT=0 AND TBBS=0:OB=0:ELSE :OB=(THITS+TBBS)/(TOABAT+TBBS):ENDIF ¢1540 IF AVG=1 THEN F$=F1$:GOTO 1560¢1550 IF OB=1 THEN F$=F2$¢1560 PRINT #7; USING F$,OPP$,TOABAT,THITS,TSINS,TDOUBS,TTRIPS,THRS,TBBS,TERRS,TRUNS,TRBI,AVG,OB;¢1570 ? #7; USING SL$,SLUG¢1580 TOABAT=0:THITS=0:TSINS=0:TDOUBS=0:TTRIPS=0:THRS=0:TBBS=0:TERRS=0:TRUNS=0:TRBI=0¢1590 DEFIN=0:GOSUB 2820¢1600 IF TYP$="1" THEN ? #7:? #7:? #7:? #7¢1610 PRINT #7;CHR$(140);:NEXT I¢1620 CLOSE #2:CLOSE #7¢1630 F1$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ### #.###   #.###"¢1640 F2$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ###  .###   #.###"¢1650 SL1$=" #.###":SL2$="  .###"¢1660 OPEN #7,8,0,"P:"¢1670 IF TYP$="1" THEN ? #7;CHR$(27);CHR$(19);¢1680 ? #7:? #7:? #7;CHR$(14);SP$(1,(18-INT(LEN(TEAMNAME$)/2)));TEAMNAME$¢1690 ? #7;CHR$(14);SP$(1,(10));"TEAM STATISTICS":? #7:? #7¢1700 ? #7;"PLAYER'S NAME     G A/B   H   1   2   3  HR  BB   E   R RBI   AVG    O-B%    S%"¢1710 ? #7;"---------------- -- --- --- --- --- --- --- --- --- --- --- -----   ----- -----"¢1720 FOR I=1 TO X¢1730 D1$="D:"¢1740 G=0¢1750 FILE$=FILELIST$((I*12)-11,(I*12)):D1$(3)=FILE$:FILE$=D1$¢1760 TRAP 1890¢1770 OPEN #2,4,0,FILE$¢1780 INPUT #2;NAME$¢1790 INPUT #2;OPP$:INPUT #2;ABAT:INPUT #2;SINS:INPUT #2;DOUBS:INPUT #2;TRIPS:INPUT #2;HRS¢1800 INPUT #2;BBS:INPUT #2;ERRS:INPUT #2;RUNS:INPUT #2;RBI¢1810 F$="!!!!!!!!!!!!!!!! %% ### ### ### ### ### ### ### ### ### ###  .###    .###"¢1820 HITS=SINS+DOUBS+TRIPS+HRS¢1830 IF ABAT=0:AVG=0:ELSE :AVG=HITS/ABAT:ENDIF ¢1840 IF ABAT=0 AND BBS=0:OB=0:ELSE :OB=(HITS+BBS)/(ABAT+BBS):ENDIF ¢1850 G=G+1¢1860 TOABAT=TOABAT+ABAT:THITS=THITS+HITS:TSINS=TSINS+SINS:TDOUBS=TDOUBS+DOUBS:TTRIPS=TTRIPS+TRIPS¢1870 THRS=THRS+HRS:TBBS=TBBS+BBS:TERRS=TERRS+ERRS:TRUNS=TRUNS+RUNS:TRBI=TRBI+RBI¢1880 GOTO 1790¢1890 CLOSE #2¢1900 TRAP 0¢1910 IF TOABAT=0:SLUG=0:ELSE :SLUG=(TSINS+(2*TDOUBS)+(3*TTRIPS)+(4*THRS))/TOABAT:ENDIF ¢1920 IF SLUG>=1:SL$=SL1$:ELSE :SL$=SL2$